

public sub VUI_MovimientoCuentaCorriente_OnEndEditEvent (byval sNameUI)
	' llamo al metodo padre
	call VUI_OTP_OnEndEditEvent(sNameUI)
	
	' metodo customizado
	dim oUI
	dim oViewUI
	dim oItem
	dim oCuentaCorriente

	
	oApp.oStorage.BeginTrans
	
	
    set oUI = oApp.oUIs.Item(sNameUI)
    set oViewUI = oUI.oViewUI
    set oItem = oViewUI.oObjectSelected
	
    if not oItem is nothing then
    
		set oCuentaCorriente = oItem.oObjectProperty("id_cuenta_corriente")

        ' @Validacion: Solo se permite modificar si la ote esta pendiente
        if oItem.oSimpleProperty("id_estado").sValue = "1" then

			oItem.oSimpleProperty("monto_referencia").fValue = oItem.oSimpleProperty("monto").fValue * oCuentaCorriente.oObjectProperty("id_moneda").oSimpleProperty("factor").fValue	
			oItem.save

			oApp.oStorage.CommitTrans
		else
		
            oUI.oViewUI.ShowTip Q_ICON_BAD, oApp.oTranslator.Translation("No se puede modificar,, El movimiento de cuenta corriente [") & oItem.oSimpleProperty("numero").sValue & oApp.oTranslator.Translation("] debe estar en estado pendiente.")
			oApp.oStorage.Rollback
		
		end if

		oUI.oViewUI.RefreshData
		
	else
		oApp.oStorage.Rollback		
	end if
	
end sub